home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows 3-Pak - Disc 3
/
Infomagic - Windows 3-Pak (Disc 3 of 3).iso
/
Telnet-Clients
/
HOSTACCESS.exe
/
MISC.1
/
INSTALL.UNI
< prev
next >
Wrap
Text File
|
1998-12-02
|
1KB
|
56 lines
* $Workfile: INSTALL.UNI $
* $Revision: 1.0.1.3 $
* $Modtime: 02 Dec 1998 15:41:48 $
*
BASICTYPE 'P'
ECLTYPE "P"
AE PIX.PROGS.F PIX_LOADER
DE999
I
SUBROUTINE PIX_LOADER(PN,DN)
FN="PIX.PROGS.F"
OPEN "",FN TO FI ELSE PRINT "No ":FN:" file.";STOP
PROMPT "";DIM RE(2000);MAT RE=""
C1=1;ER=0;ST=0;DA="";PRINT CHAR(27):"_B":DN:CHAR(27):"\":
10 INPUT LI:;CS=LI[1,1];LN=LEN(LI);LI=LI[2,LN];AK="N"
IF CS=CHAR(LN+32) THEN AK="Y";RE(C1)=LI;C1=C1+1
PRINT CHAR(2):AK;IF LI="FINISH" THEN GOTO 20
GOTO 10
20 INPUT LI:;PRINT CHAR(2):"Y";IF LI#0 THEN PRINT "Load Error <":LI:">, please retry";STOP
RE(C1-1)="";MATWRITE RE ON FI,PN
RETURN
END
FI
AE PIX.PROGS.F PIX_BOOTSTRAP
DE999
I
PF="PIX.PROGS.F";PI="PIX_INSTALL"
PRINT CHAR(27):"[=13l":
PRINT @(0):
PRINT CHAR(27):"[=13h":
PRINT "Timer delay, please wait ...."
X=TIME()
LOOP UNTIL TIME()>(X+10) DO
X=X
REPEAT
CALL PIX_LOADER(PI,"INSTALL.BOT")
SLEEP 5
EXECUTE "BASIC ":PF:" ":PI
SLEEP 2
EXECUTE "CATALOG ":PF:" ":PI:" DIRECT FORCE"
SLEEP 2
CHAIN PI
END
FI
BASIC PIX.PROGS.F PIX_BOOTSTRAP
BASIC PIX.PROGS.F PIX_LOADER
CATALOG PIX.PROGS.F PIX_LOADER DIRECT FORCE
CATALOG PIX.PROGS.F PIX_BOOTSTRAP DIRECT FORCE
PIX_BOOTSTRAP